<!--#include file="Ini.asp"-->
<!--#include file="../AspLib/Functions.asp"-->

<%
Response.expires = 0
Response.Buffer = False
Response.CacheControl="no-cache" 
Response.AddHeader "Pragma","no-cache" 

sESCOLA= Request("ESCOLA")
MREDE=Request("REDE")
'RESPONSE.WRITE MREDE
'RESPONSE.END
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3
conn.CommandTimeout = 1500

%>
<% = sHEAD %>
<% = sBODY2 %>
<div id="bt-top">
  <a class="bt r" href='palm_escola_visitas_ver.asp?REDE=<% = MREDE %>&ESCOLA=<% = sESCOLA %>&ACAO=I'>Nova Visita</a>
</div>

<div id="content">
<%
  MSQL="SELECT NM_ESCOLA FROM ESCOLA WHERE CODIGO=" & sESCOLA
  Set rs = Conn.Execute(MSQL)
  IF NOT RS.EOF THEN
    NOME_ESCOLA = RS("NM_ESCOLA")
  END IF
  MSQL = "SELECT COD_ESCOLA,VISITA,DIVULGADOR,HORA,OBS,CONTATO,FUNCAO,ATIVIDADE FROM (" &_
         " SELECT COD_ESCOLA,VISITA,DIVULGADOR,HORA,OBS,CONTATO,FUNCAO,ATIVIDADE " &_
	 " FROM ESCOLAS_VISITA " &_
	 " WHERE COD_ESCOLA = " & sESCOLA &_
         " UNION ALL " &_
         " SELECT COD_ESCOLA,DT_ASSESSORIA AS VISITA,SUBSTRING(ASSESSOR,1,6) AS DIVULGADOR"&_
         ",SUBSTRING(HORARIO,1,5) AS HORA,TEMA AS OBS,SUBSTRING(RESPONSAVEL,1,10) AS CONTATO"&_
         ",CARGO AS FUNCAO,'Atend.'+ATENDIDO+'-'+'Desm.'+DESMARCOU AS ATIVIDADE " &_
	 " FROM ASSESSORIA " &_
	 " WHERE COD_ESCOLA = " & sESCOLA &_
         " ) RESUMO " &_
	 " ORDER BY VISITA DESC"
  'RESPONSE.Write(MSQL & "<BR>")
  Set rs = Conn.Execute(MSQL)
    %>
    <h1>Visitas na escola</h1>
    <h2><% = NOME_ESCOLA %></h2>
    <table>
      <thead>
        <tr>
          <th>Data</th>
          <th>Hora</th>
          <th>Contato</th>
          <th>Atividade</th>
          <th>Divul.</th>
        </tr>
      </thead>
      <tbody>
    <%
     MQTD=0
   if not rs.eof then
     Do while not rs.eof 
	   sCOD_ESCOLA = TRIM(RS("COD_ESCOLA"))
	   sVISITA = TRIM(RS("VISITA"))
	   sDIVULGADOR = TRIM(RS("DIVULGADOR"))
	   sHORA = TRIM(RS("HORA"))
	   sOBS = TRIM(RS("OBS"))
	   sCONTATO = TRIM(RS("CONTATO"))
	   sFUNCAO = TRIM(RS("FUNCAO"))
	   sATIVIDADE = TRIM(RS("ATIVIDADE"))
	   %>
       <tr>
         <td colspan="5" class="linha"></td>
       </tr>
        <tr>
          <td>
          <a href='palm_escola_visitas_ver.asp?REDE=<% = MREDE %>&ESCOLA=<% = sCOD_ESCOLA %>&VISITA=<% = sVISITA &"&HORA="& sHORA %>'><% = sVISITA %></a></td>
          <td><% = sHORA %></td>
          <td><% = sCONTATO %></td>
          <td><% = mid(sATIVIDADE,1,15) %></td>
          <td><% = sDIVULGADOR %></td>
        </tr>
		<%	
		if len(sOBS)>0 THEN
		 %>
         <tr><td colspan="5">Obs.: <% = sOBS %></td></tr>
		 <%
		END IF
		MQTD=MQTD+1
		rs.MoveNext	      	
		Loop
	    end if
		%>    
           </tbody> 
           <tfoot>
             <tr>
               <td colspan="5">Total: <% = MQTD %> Visitas</td>
             </tr>
           </tfoot>
<%
rs.Close : Set rs = Nothing
Conn.Close : Set conn = Nothing 
%>      
        </table>
      </div><!-- end content-->
      <div id="bt-footer">
        <a class="bt-02 l" href="#ancora">Ir ao topo</a>
        <a class="bt r" href='palm_escola_visitas_ver.asp?REDE=<% = MREDE %>&ESCOLA=<% = sESCOLA %>&ACAO=I'>Nova Visita</a>
      </div>
    </div><!-- end main-->
  </body>
</html>
